home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tk4.0 / tests / bevel.tcl < prev    next >
Encoding:
Text File  |  1995-03-17  |  4.3 KB  |  129 lines
  1. # This file creates a visual test for bevels drawn around text in text
  2. # widgets.  It is part of the Tk visual test suite, which is invoked
  3. # via the "visual" script.
  4. #
  5. # @(#) bevel.tcl 1.2 95/03/16 16:59:09
  6.  
  7. catch {destroy .t}
  8. toplevel .t
  9. wm title .t "Visual Tests for Borders in Text Widgets"
  10. wm iconname .t "Text Borders"
  11. wm geom .t +0+0
  12.  
  13. text .t.t -width 60 -height 30 -setgrid true -xscrollcommand {.t.h set} \
  14.     -font -adobe-courier-medium-r-normal--12-120-75-75-m-*-iso8859-1 \
  15.     -yscrollcommand {.t.v set} -wrap none -relief raised -bd 2
  16. scrollbar .t.v -orient vertical -command ".t.t yview"
  17. scrollbar .t.h -orient horizontal -command ".t.t xview"
  18. button .t.quit -text Quit -command {destroy .t}
  19. pack .t.quit -side bottom -pady 3 -ipadx 4 -ipady 2
  20. pack .t.h -side bottom -fill x
  21. pack .t.v -side right -fill y
  22. pack .t.t -expand yes -fill both
  23. wm minsize .t 1 1
  24.  
  25. if {[winfo depth .t] > 1} {
  26.     .t.t tag configure r1 -relief raised -borderwidth 2 -background #b2dfee
  27.     .t.t tag configure r2 -relief raised -borderwidth 2 -background #b2dfee \
  28.         -offset 2
  29.     .t.t tag configure s1 -relief sunken -borderwidth 2 -background #b2dfee
  30. } else {
  31.     .t.t tag configure r1 -relief raised -borderwidth 2 -background white
  32.     .t.t tag configure r2 -relief raised -borderwidth 2 -background white \
  33.         -offset 2
  34.     .t.t tag configure s1 -relief sunken -borderwidth 2 -background white
  35. }
  36. .t.t tag configure indent1 -lmargin1 100
  37. .t.t tag configure indent2 -lmargin1 200
  38.  
  39. .t.t insert end {This display contains a bunch of raised and sunken
  40. regions to exercise the bevel-drawing facilities of
  41. DisplayLineBackground.  The letters have the following
  42. significance:
  43.  
  44. r - should appear raised
  45. u - should appear raised and also slightly offset vertically
  46. s - should appear sunken
  47. n - preceding relief should extend right to end of line.
  48. * - should appear "normal"
  49. x - extra long lines to allow horizontal scrolling.
  50.  
  51. Try scrolling the text both vertically and horizontally to
  52. be sure that the bevels are still drawn correctly.
  53.  
  54. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  55.  
  56. Pass 1 (side bevels):
  57.  
  58. }
  59. .t.t insert end ****
  60. .t.t insert end rrrrrrr r1
  61. .t.t insert end uuuu r2
  62. .t.t insert end ************
  63. .t.t insert end ssssssssssssssssss s1
  64. .t.t insert end \n\n****************
  65. .t.t insert end rrrrrrrrrrrrrrn\n r1
  66.  
  67. .t.t insert end "\nPass 2 (top bevels):\n\n"
  68. .t.t insert end rrrrrrrrrrrrrr r1
  69. .t.t insert end rrrrr {r1 dummy}
  70. .t.t insert end rrrrrrrrrrrrrrrrrrr r1
  71. .t.t insert end \n************
  72. .t.t insert end rrrrrrrrrrrrrrrrr r1
  73. .t.t insert end ***********\n
  74. .t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr r1
  75. .t.t insert end \n\n***
  76. .t.t insert end rrrrrrrrrrrrrrrrrrr r1
  77. .t.t insert end ***********\n*
  78. .t.t insert end rrrrrrrrr r1
  79. .t.t insert end ********
  80. .t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
  81. .t.t insert end \n\n*
  82. .t.t insert end *** dummy
  83. .t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
  84. .t.t insert end n\nrrrrrrrrrrrrrrr {r1 indent1}
  85. .t.t insert end \n\n***
  86. .t.t insert end rrr r1
  87. .t.t insert end \n
  88. .t.t insert end rrrr {r1 indent1}
  89.  
  90. .t.t insert end \n\nxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n\n
  91. .t.t insert end "Pass 3 (bottom bevels):\n\n"
  92. .t.t insert end *******
  93. .t.t insert end ********** dummy
  94. .t.t insert end rrrrrrrrrrrrrrrr r1
  95. .t.t insert end **********\n
  96. .t.t insert end rrrrrrrrr r1
  97. .t.t insert end uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu r2
  98. .t.t insert end \n********************
  99. .t.t insert end rrrrrrrrrrrrrrr r1
  100. .t.t insert end ************\n\n*
  101. .t.t insert end rrrrrrrrrrrr r1
  102. .t.t insert end ********
  103. .t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
  104. .t.t insert end \n*****
  105. .t.t insert end rrrrrrrrrrrrrrrrrrrr r1
  106. .t.t insert end **********\n\n
  107. .t.t insert end rrrrrrrrrrrrrrr {r1 indent1}
  108. .t.t insert end \n** dummy
  109. .t.t insert end **
  110. .t.t insert end rrrrrrrrrrrrrrrrrrrrn\n r1
  111. .t.t insert end \n
  112. .t.t insert end rrrr {r1 indent1}
  113. .t.t insert end \n***
  114. .t.t insert end rrr r1
  115.  
  116. .t.t insert end \n\nMiscellaneous:\n\n
  117. .t.t insert end rrr r1
  118. .t.t insert end *****
  119. .t.t insert end rrr r1
  120. foreach i {1 2 3} {
  121.     .t.t insert end \n
  122.     .t.t insert end ***
  123.     .t.t insert end rrrrr r1
  124. }
  125. .t.t insert end \n
  126. .t.t insert end rrr r1
  127. .t.t insert end *****
  128. .t.t insert end rrr r1
  129.